|
|
|
|
|
|
|
The Count and Item properties are typical of collections. The CurrObject property, though seemingly similar to Item, is in fact helpful in cases where a client doesn't know the index of the current Customer object. The property is also helpful when you want to do polymorphic method invocations on any number of Customer objects in the AllCustomers class in a loop through the collection. |
|
|
|
|
|
|
|
|
Note
The CurrObject property can be replaced with a private numeric variable that holds the index value of the current Customer object. |
|
|
|
|
|
|
|
|
|
The code for this subsystem would be too numerous to list here. Please refer to the complete code on the CD-ROM. However, the ReportController class code is listed in Listing 16.3. |
|
|
|
|
|
|
|
|
LISTING 16.3 THEReportControllerCLASS CODE. |
|
|
|
 |
|
|
|
|
1: VERSION 1.0 CLASS
2: BEGIN
3: MultiUse = -1 'True
4: END
5: Attribute VB_Name = ReportController
6: Attribute VB_GlobalNameSpace = False
7: Attribute VB_Creatable = True
8: Attribute VB_PredeclaredId = False
9: Attribute VB_Exposed = False
10: Attribute VB_Ext_KEY = SavedWithClassBuilder ,Yes
11: Attribute VB_Ext_KEY = Top_Level ,Yes
12: Attribute VB_Ext_KEY = RVB_UniqueId ,3521520F0190
13: '
14: Option Base 0
15: Private WithEvents theTimer As Timer
16: Attribute theTimer.VB_VarHelpID = -1
17: 'eReporting
18: '##ModelId=3521520F0200
19: Private theReporting As New IReporting
20: '##ModelId=3521520F026E
21: Private theAccessReporter As AccessReporting
22: '##ModelId=3521520F02AA
23: Private theCrystalReporting As CrystalReporting
24: '##ModelId=3521520F0318
25: Private theRichTextReporter As RichTextReporting
|
|
|
|
|
|